The maps below plot 72-hour trajectories initialized at HYSPLIT points following Brey et al. Each map shows a random sample of 100 trajectories from those initiated at points overlapping a specified wildfire perimeter.
August Complex
# Plot random sample of trajectories colored by injection height
set.seed(123)
rand <- sample(unique(traj_aug_complex$run), 100)
trajectory_plot_iheight(traj_aug_complex %>% filter(run %in% rand))
SCU Complex
set.seed(123)
rand <- sample(unique(traj_scu_complex$run), 100)
trajectory_plot_iheight(traj_scu_complex %>% filter(run %in% rand))